40 FORT=1TO800:NEXTT:V=54296:W=54276:A=54277:HF=54273:LF=54272:FORY=1TO7:POKEV,15:POKEW,129:POKEA,67:POKEHF,70:POKELF,125:FORX=1TO600:NEXTX:POKEHF,0:POKELF,0:POKEW,0:NEXTY:PRINT"[147]":POKE53280,11:POKE53281,11:PRINT"[155]":PRINT"  IF YOU LIST THIS PROGRAM, YOU WILL":PRINT
150 PRINT"  SEE THAT THE SEVEN CARDS SOUND":PRINT:PRINT"  EFFECT COMES FROM LINES 70 AND 120.":PRINT:PRINT"  IN ACTUAL USE, REMOVE THESE TWO LINES,":PRINT"  AND MAKE THIS SHORT PROGRAM A SUB-":PRINT:PRINT"  ROUTINE THAT YOU CALL UP AFTER EACH":PRINT
200 PRINT"  CARD IS PUT ON THE SCREEN.  THIS":PRINT:PRINT"  SOUND EFFECT ADDS REALISIM TO":PRINT:PRINT"  TO YOUR CARD GAME WHEN DEALING.":PRINT:PRINT"  ONLY LINES 50, 60, 80, 90, 100 AND":PRINT:PRINT"  110 ARE NEEDED FOR THE ROUTINE."
250 FORT=1TO8000:NEXTT